home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / xes.lha / XES / S / alphaspell.xrc next >
Text File  |  1995-08-24  |  3KB  |  44 lines
  1. # $VER: alphaspell.xrc 1.1 (24 Aug 1995)
  2. loadgtbproject as XES:GUI/AlphaSpell.gui
  3.  
  4. # List0 = Unfound words
  5. # List1 = Guesses or Matches
  6. # List2 = Words to Learn List
  7.  
  8. setmacro as-as-words 1 (intcmp 1 \$lst ifelse 3 (smv w (List1/#\\\$arg1/*Name*) eval (set Guess \$(\\\$w)) setgtbgadget as as word \\\$Guess) (set-array idx \$lst \$arg1 if 4 (set newword 1)))
  9.  
  10. setmacro as-as-save 0 (intcmp \$lst 2 if 3 (rx XES:Rexx/SaveWords droplist List2 deflist List2 connectgtbgadget as as words List2))
  11.  
  12. setmacro as-as-learn 0 (intcmp \$lst 0 if 3 (move-word 0 2))
  13.  
  14. setmacro move-word 2 (get-array idx idx \$arg1 smv w (List\$arg1/#\$idx/*Name*) eval (addnode List\$arg2 head \$(\$w) \$idx) remove-word \$arg1 \$idx)
  15.  
  16. setmacro as-as-find 0 (ifelse \$newword (set w (List0/#\\\$idx0/*Name*) top first eval (wfind \\\$(\\\$w)) set newword 0) (wsearch next))
  17.  
  18. setmacro as-as-edit 0 (get-array idx idx \$lst set w (List\$lst/#\$idx/*Name*) eval (set Guess \$(\$w)) setgtbgadget as as word \$Guess)
  19.  
  20. setmacro as-as-replace 0 (repstr \$Guess replace)
  21.  
  22. setmacro as-as-view 1 (set lst \$arg1 get-array idx idx \$arg1 eval (connectgtbgadget as as words List\\\$arg1 setgtbgadget as as words \\\$idx))
  23.  
  24. setmacro remove-word 2 (remnode List\$arg1 idx=\$arg2 as-as-words \$arg2 setgtbgadget as as words \$arg2)
  25.  
  26. setmacro as-as-discard 0 (intcmp \$lst 2 ifelse 3 (move-word 2 0) (get-array idx idx \\\$lst remove-word \\\$lst \\\$idx))
  27.  
  28. setmacro as-as-clear 0 (droplist List\$lst deflist List\$lst)
  29.  
  30. setmacro as-as-guess 0 (execute (AlphaSpell -o T:temp -w \$Guess -n \$k -d $DDIR -G \$Dict) droplist List1 rx2 XES:Rexx/LoadList List1 T:temp connectgtbgadget as as words List1 setgtbgadget as as view 1 set lst 1)
  31.  
  32. setmacro as-as-match 0 (execute (AlphaSpell -o T:temp -w \$Guess -d $DDIR -P \$Dict) droplist List1 rx2 XES:Rexx/LoadList List1 T:temp connectgtbgadget as as words List1 setgtbgadget as as view 1 set lst 1)
  33.  
  34. setmacro as-as-anagrams 0 (execute (AlphaSpell -o T:temp -w \$Guess -d $DDIR -A \$Dict) droplist List1 rx2 XES:Rexx/LoadList List1 T:temp connectgtbgadget as as words List1 setgtbgadget as as view 1 set lst 1)
  35.  
  36. setmacro as-as-setr 0 (repstr \$Guess)
  37.  
  38. setmacro as-as-setf 0 (findstr \$Guess top first set wholeword 1)
  39.  
  40. setmacro as-as-word 1 (set Guess \$arg1 intcmp \$lst 2 if 3 (remove-word 2 \\\$idx2 addnode List2 head \\\$arg1 \\\$idx2))
  41.  
  42. setmacro as-as-k 1 (set k \$arg1)
  43. setmacro gtb-aspell 0 (force rft (droplist List1 droplist List2) deflist List1 deflist List2 setgtbgadget as as words 0 setgtbgadget as as k \$k set idx0 0 set idx1 0 set idx2 0 opengtbwindow as as)
  44.